(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     54957,       1512]
NotebookOptionsPosition[     48633,       1320]
NotebookOutlinePosition[     52564,       1428]
CellTagsIndexPosition[     52407,       1421]
WindowTitle->OneLoopSimplify
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[GridBox[{
   {Cell["FEYN CALC SYMBOL", "PacletNameCell"], Cell[TextData[{
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "See Also",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"See Also", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"TID\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/TID"], "\<\"TIDL\"\>":>Documentation`HelpLookup[
       "paclet:FeynCalc/ref/TIDL"]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"SeeAlso"]],
      LineSpacing->{1.4, 0}],
     "\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\[ThickSpace]\
\[ThickSpace]",
     Cell[BoxData[
      ActionMenuBox[
       FrameBox[
        InterpretationBox[Cell[TextData[{
          "URL",
          StyleBox[" \[FilledDownTriangle]", "AnchorBarArrow",
           StripOnInput->False]
         }]],
         TextCell[
          Row[{"URL", 
            Style[" \[FilledDownTriangle]", "AnchorBarArrow"]}]]],
        StripOnInput->False], {"\<\"FeynCalc/ref/OneLoopSimplify\"\>":>
       None, "\<\"Copy Wolfram Documentation Center URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell["FeynCalc/ref/OneLoopSimplify"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; Null], 
       Delimiter, "\<\"Copy web URL\"\>":>
       Module[{DocumentationSearch`Private`nb$}, 
        DocumentationSearch`Private`nb$ = NotebookPut[
           Notebook[{
             Cell[
              BoxData[
               MakeBoxes[
                Hyperlink[
                
                "http://reference.wolfram.com/language/FeynCalc/ref/\
OneLoopSimplify.html"], StandardForm]], "Input", TextClipboardType -> 
              "PlainText"]}, Visible -> False]]; 
        SelectionMove[DocumentationSearch`Private`nb$, All, Notebook]; 
        FrontEndTokenExecute[DocumentationSearch`Private`nb$, "Copy"]; 
        NotebookClose[DocumentationSearch`Private`nb$]; 
        Null], "\<\"Go to web URL\"\>":>FrontEndExecute[{
         NotebookLocate[{
           URL[
            StringJoin[
             If[
              TrueQ[DocumentationBuild`Make`Private`wsmlinkQ$193711], 
              "http://reference.wolfram.com/system-modeler/", 
              "http://reference.wolfram.com/language/"], 
             "FeynCalc/ref/OneLoopSimplify", ".html"]], None}]}]},
       Appearance->None,
       MenuAppearance->Automatic,
       MenuStyle->"URLMenu"]],
      LineSpacing->{1.4, 0}]
    }], "AnchorBar"]}
  }]], "AnchorBarGrid",
 GridBoxOptions->{GridBoxItemSize->{"Columns" -> {
     Scaled[0.65], {
      Scaled[0.34]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
   "RowsIndexed" -> {}}},
 CellID->1],

Cell[TextData[{
 Cell["OneLoopSimplify", "ObjectName"],
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{8, 0}],
    CacheGraphics->False],
   Spacer[8]]]],
 Cell[BoxData[""], "ObjectNameTranslation"]
}], "ObjectNameGrid"],

Cell[CellGroupData[{

Cell[BoxData[GridBox[{
   {"", Cell[TextData[{
     Cell[BoxData[
      RowBox[{"OneLoopSimplify", "[", 
       RowBox[{"amp", ",", " ", "q"}], "]"}]], "InlineFormula"],
     " \[LineSeparator]",
     "simplifies the one-loop amplitude amp. The second argument denotes the \
integration momentum."
    }]]}
  }]], "Usage",
 GridBoxOptions->{
 GridBoxBackground->{
  "Columns" -> {{None}}, "ColumnsIndexed" -> {}, "Rows" -> {{None}}, 
   "RowsIndexed" -> {}}},
 CellID->982511436],

Cell[CellGroupData[{

Cell[TextData[Cell[BoxData[
 ButtonBox[Cell[TextData[{
   Cell[BoxData[
    InterpretationBox[
     StyleBox[
      GraphicsBox[{},
       BaselinePosition->Baseline,
       ImageSize->{6, 0}],
      CacheGraphics->False],
     Spacer[6]]]],
   "Details"
  }], "NotesFrameText"],
  Appearance->{Automatic, None},
  BaseStyle->None,
  ButtonFunction:>(FrontEndExecute[{
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], All, ButtonCell], 
     FrontEndToken["OpenCloseGroup"], 
     FrontEnd`SelectionMove[
      FrontEnd`SelectedNotebook[], After, CellContents]}]& ),
  Evaluator->None,
  Method->"Preemptive"]]]], "NotesSection",
 WholeCellGroupOpener->True,
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->649596718],

Cell["", "SectionHeaderSpacer"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Options", "[", "OneLoopSimplify", "]"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[15]:=",
 CellID->408969695],

Cell[BoxData[
 FormBox[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Collecting", "\[Rule]", "True"}], ",", 
    RowBox[{"Dimension", "\[Rule]", "D"}], ",", 
    RowBox[{"DiracSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"ExpandScalarProduct", "\[Rule]", "True"}], ",", 
    RowBox[{"FeynCalcExternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FeynCalcInternal", "\[Rule]", "False"}], ",", 
    RowBox[{"FCVerbose", "\[Rule]", "False"}], ",", 
    RowBox[{"Factoring", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"FinalSubstitutions", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"OPE1Loop", "\[Rule]", "False"}], ",", 
    RowBox[{"PowerSimplify", "\[Rule]", "True"}], ",", 
    RowBox[{"SUNNToCACF", "\[Rule]", "True"}], ",", 
    RowBox[{"SUNTrace", "\[Rule]", "False"}], ",", 
    RowBox[{"ToPaVe", "\[Rule]", "False"}], ",", 
    RowBox[{"UsePaVeBasis", "\[Rule]", "False"}]}], "}"}], 
  TraditionalForm]], "Output",
 ImageSize->{554, 73},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[15]="]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "PrimaryExamplesSection",
 WholeCellGroupOpener->True,
 CellTags->"PrimaryExamplesSection",
 CellID->1251869634],

Cell[CellGroupData[{

Cell[TextData[{
 "Basic Examples",
 "\[NonBreakingSpace]\[NonBreakingSpace]",
 Cell["(1)", "ExampleCount"]
}], "ExampleSection", "ExampleSection",
 WholeCellGroupOpener->True,
 CellID->2062258939],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SPD", "[", 
    RowBox[{"k", ",", "r"}], "]"}], " ", 
   RowBox[{"FAD", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "m"}], "}"}], " ", ",", " ", 
     RowBox[{"k", " ", "-", " ", "p"}]}], "]"}]}], "//", "FCI"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[1]:=",
 CellID->2051602371],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    FormBox[
     FormBox["k",
      TraditionalForm],
     TraditionalForm], 
    FormBox["\<\"\[CenterDot]\"\>",
     TraditionalForm], 
    FormBox[
     FormBox["r",
      TraditionalForm],
     TraditionalForm]}], 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       SuperscriptBox[
        FormBox[
         FormBox["k",
          TraditionalForm],
         TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
       "\[InvisibleSpace]", 
       SuperscriptBox["m", "2"]}],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k, D], 
        FeynCalc`Momentum[$CellContext`k, D]], "-", $CellContext`m^2],
      Editable->False], ")"}], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["k",
           TraditionalForm], "-", 
          FormBox["p",
           TraditionalForm]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[
      FeynCalc`Momentum[$CellContext`k, D] - 
       FeynCalc`Momentum[$CellContext`p, D], 
       FeynCalc`Momentum[$CellContext`k, D] - 
       FeynCalc`Momentum[$CellContext`p, D]]],
     Editable->False]}]], TraditionalForm]], "Output",
 ImageSize->{144, 42},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OneLoopSimplify", "[", 
  RowBox[{"%", ",", "k"}], "]"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[2]:=",
 CellID->1712188386],

Cell[BoxData[
 FormBox[
  RowBox[{
   FormBox[
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["m", "2"], "+", 
        SuperscriptBox[
         FormBox[
          FormBox["p",
           TraditionalForm],
          TraditionalForm], "2"]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        FormBox[
         FormBox["p",
          TraditionalForm],
         TraditionalForm], 
        FormBox["\<\"\[CenterDot]\"\>",
         TraditionalForm], 
        FormBox[
         FormBox["r",
          TraditionalForm],
         TraditionalForm]}], ")"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm], "2"], " ", 
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         FormBox[
          FormBox["k",
           TraditionalForm],
          TraditionalForm], "2"],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k, D], 
          FeynCalc`Momentum[$CellContext`k, D]]],
        Editable->False], ".", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{
            FormBox["\<\"(\"\>",
             TraditionalForm], 
            FormBox[
             FormBox[
              RowBox[{
               FormBox["k",
                TraditionalForm], "-", 
               FormBox["p",
                TraditionalForm]}],
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\")\"\>",
             TraditionalForm]}], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
          "\[InvisibleSpace]", 
          SuperscriptBox["m", "2"]}],
         SequenceForm[
          FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k, D] - 
           FeynCalc`Momentum[$CellContext`p, D], 
           FeynCalc`Momentum[$CellContext`k, D] - 
           FeynCalc`Momentum[$CellContext`p, D]], "-", $CellContext`m^2],
         Editable->False], ")"}]}]}]],
    TraditionalForm], "-", 
   FormBox[
    FractionBox[
     RowBox[{
      FormBox[
       FormBox["p",
        TraditionalForm],
       TraditionalForm], 
      FormBox["\<\"\[CenterDot]\"\>",
       TraditionalForm], 
      FormBox[
       FormBox["r",
        TraditionalForm],
       TraditionalForm]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       FormBox[
        FormBox["p",
         TraditionalForm],
        TraditionalForm], "2"], " ", 
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         SuperscriptBox[
          FormBox[
           FormBox["k",
            TraditionalForm],
           TraditionalForm], "2"], "\[InvisibleSpace]", "\<\"-\"\>", 
         "\[InvisibleSpace]", 
         SuperscriptBox["m", "2"]}],
        SequenceForm[
         FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k, D], 
          FeynCalc`Momentum[$CellContext`k, D]], "-", $CellContext`m^2],
        Editable->False], ")"}]}]],
    TraditionalForm]}], TraditionalForm]], "Output",
 ImageSize->{299, 47},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OneLoopSimplify", "[", 
  RowBox[{
   RowBox[{"%", "/.", 
    RowBox[{"m", "\[Rule]", "0"}]}], ",", "k"}], "]"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[3]:=",
 CellID->2028218956],

Cell[BoxData[
 FormBox[
  FractionBox[
   RowBox[{
    FormBox[
     FormBox["p",
      TraditionalForm],
     TraditionalForm], 
    FormBox["\<\"\[CenterDot]\"\>",
     TraditionalForm], 
    FormBox[
     FormBox["r",
      TraditionalForm],
     TraditionalForm]}], 
   RowBox[{"2", " ", 
    RowBox[{
     InterpretationBox[
      SuperscriptBox[
       FormBox[
        FormBox["k",
         TraditionalForm],
        TraditionalForm], "2"],
      SequenceForm[
       FeynCalc`Pair[
        FeynCalc`Momentum[$CellContext`k, D], 
        FeynCalc`Momentum[$CellContext`k, D]]],
      Editable->False], ".", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{
        FormBox["\<\"(\"\>",
         TraditionalForm], 
        FormBox[
         FormBox[
          RowBox[{
           FormBox["k",
            TraditionalForm], "-", 
           FormBox["p",
            TraditionalForm]}],
          TraditionalForm],
         TraditionalForm], 
        FormBox["\<\")\"\>",
         TraditionalForm]}], "2"],
      SequenceForm[
       FeynCalc`Pair[
       FeynCalc`Momentum[$CellContext`k, D] - 
        FeynCalc`Momentum[$CellContext`p, D], 
        FeynCalc`Momentum[$CellContext`k, D] - 
        FeynCalc`Momentum[$CellContext`p, D]]],
      Editable->False]}]}]], TraditionalForm]], "Output",
 ImageSize->{111, 36},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FAD", "[", 
    RowBox[{"k", ",", "k", ",", " ", 
     RowBox[{"k", " ", "-", " ", 
      SubscriptBox["p", "1"]}], ",", " ", 
     RowBox[{"k", " ", "-", " ", 
      SubscriptBox["p", "2"]}]}], "]"}], " ", 
   RowBox[{"FVD", "[", 
    RowBox[{"k", ",", "\[Mu]"}], "]"}]}], "//", "FCI"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[4]:=",
 CellID->1056142741],

Cell[BoxData[
 FormBox[
  FractionBox[
   SuperscriptBox[
    FormBox[
     FormBox["k",
      TraditionalForm],
     TraditionalForm], 
    FormBox[
     FormBox["\[Mu]",
      TraditionalForm],
     TraditionalForm]], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      InterpretationBox[
       SuperscriptBox[
        FormBox[
         FormBox["k",
          TraditionalForm],
         TraditionalForm], "2"],
       SequenceForm[
        FeynCalc`Pair[
         FeynCalc`Momentum[$CellContext`k, D], 
         FeynCalc`Momentum[$CellContext`k, D]]],
       Editable->False], ")"}], "2"], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["k",
           TraditionalForm], "-", 
          SubscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], 
           FormBox["1",
            TraditionalForm]]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
        Subscript[$CellContext`p, 1], D], 
       FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
        Subscript[$CellContext`p, 1], D]]],
     Editable->False], ".", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{
       FormBox["\<\"(\"\>",
        TraditionalForm], 
       FormBox[
        FormBox[
         RowBox[{
          FormBox["k",
           TraditionalForm], "-", 
          SubscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], 
           FormBox["2",
            TraditionalForm]]}],
         TraditionalForm],
        TraditionalForm], 
       FormBox["\<\")\"\>",
        TraditionalForm]}], "2"],
     SequenceForm[
      FeynCalc`Pair[FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
        Subscript[$CellContext`p, 2], D], 
       FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
        Subscript[$CellContext`p, 2], D]]],
     Editable->False]}]], TraditionalForm]], "Output",
 ImageSize->{199, 45},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OneLoopSimplify", "[", " ", 
  RowBox[{"%", ",", "k"}], "]"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[5]:=",
 CellID->971533335],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnXtUVPX6/+v3+6dzlutYejyLOmqCBChHPDAVkKmH1KOJxgFpJYauJXm+
Lm+EVF6zkyahYUiEpZa3w0+0jGUcO6hoAoIGaILITQiBUQZwZhxmgLnvPT9A
vyUze+/5fPZt9ozPa61aFJvP87yfz2Wevfczn493wtsx//N/HnvssXee6P9X
zNL1EcnJSzcueLL/P15PfGfF8sR/Lns18d1/Lv9ncljC/+3/n5X9//zy+GOP
DfxsAwAAAADXQXSXf/o/86ZM8P7roj21faSr3QEAAHiUMbT8v4M/awmbqeWr
aeMjL2iEsUK4dK13rXUAAAB0SKveOrhk9VUmTllW0cNbwxb54QUJJd02W29l
4rQll7W8NewG1gEAADjSd+OTf+5vNvLWHqk6vWDuMYXVZry5PWzmiU6Ct5al
bx0AAIATZE9NztcXVVYem+y9uvLvqTeNNmt79t/CUhv5W+z5tG5qv5B9sr5X
Ko82CG1lbs4lpcXVfgAA4EpIQ9vZ3OIuc/+a0NvWpONnYe7PT8Nn5atIU/O+
iImLy3XiJqpI1i2deUlLvuLx1oAP9LUZ8RvPq/n8dAQAwJ0w38lZ7O/jH9jP
xL9Mfb9Gz0urVsWxiIDpr8QnbU3bHSWL2pXXohcxGUWxTqhOx4etKteJ5xUa
5L0L8aErLmmlkrsDAMALVk3Z4fdiI2ZuSN+2KjJwxMhJCbkdnO6JsRokVWdi
Z+xpMXMxyN4BFOv9y/b0gLifqJZk14auf1E+Fxkw76waFmUA8ChI9dk5z/gm
nVdabYTyh/mjngw93kHYyL7WSjm7lJWqQQt1bfPAohi+7gY/KTejA1SKkKz3
lC/0Dcm8RbluswmdRdt+10j3S4zQ9WOo3xIUmFzNc/QAAHAt3SVveE/cUmcY
+Ln32nLv0dFFXYryA9G+oV/LWWV9jg0Wd3KsbbYoTiTMnm7H3NWXuikXN14V
aYoixryQ3U753BbfkLltr2z4069Tpt2UDTKFztScHuy7qJy/qkQAAFxPT0XC
eP+k+8mWof7DSX7LSvtXuv7pHv4yuzWZqkFCqNpmVAfYK9JdjvGRfdFKlSez
MWTVVBYUt9Jk0ZihMzZsC5qwuqoPVxIAANKlryrRz2fp4FS3tB9fNHXNmcFC
N/ZrMk2DD37Jc20zhgNsFZmaP5UFrqFa+FweOl1ZnP+UHAWUXgCA52Co2zzR
68U3k1MyMtO2bsosvPtgKWG9sNA1aBOkthnDAdaKjI0pYVP2tjkkyi4PnfFm
StgMls+XAACQJKamHUHjYgo1DrfSrLNKugYFqW3GcYB9+kpoLq6P3mlf++fq
0JG6is0xH13rgaoLAPAczC1ZIWNn56sc5zXLhYWuQWFqmzEc4LIm92OUn8rY
X9j5UK7s4tAZ5flZnxV08FpDCACAKyENt0sOvuU9zCtqX4nCrjjLrK46GjvO
b2VevRY9oWVqUBR4VzS0dZNKbSKFMYQdOsLQpTFBhgwAAAAAAAAAjyrWrlPL
11RI7pvtAAAAjyTWO/+eNU+oExQAj2QmAABsuXXrFvP8gjUZAADA5fz2bfrw
gKdGTp7C/G16AAAAQBQgTwYAAJAOsCYDAABIB1iTAelA0G6cy/5KN8XjBT6M
q8QKYfeR6jjAzTDKC3JrdBij0kCxcS6pq8ktkNvvq0Z1pUeBJhA7wtLEVb0p
hF30MQwA4kL2VO1O/uYO1vYEJOXGueY73ybvrhq68wz1lR4EgkA2EZYmrupN
Ieyij2EAEBVz26El26tZ7j1uv3FuX/X2JYcct46kuNLjoBfIKcLSxFW9KYRd
9DEMANwh9U3Zia/4jRr2lPfLq440UhwhYWhIfW1rrcHxLw3yi99mfbD2/SI1
5Rn2NuqNcw21W+enNtg3h7Y7san9QvbJ+l7qFAXBH8EhtJW5OZeUFLuqMQmk
jjCjWCnATqyQCGEXfQwDAB/o69Lf3lPWZTKrr+55zWv45E+aTHZXGJt2TvsH
9fM5ovO7cK9Ju36x/5P70O05rLkQNW2oGbTdiS2deUlLvmJKgZj9EQl9bUb8
xvPqISKYBVJF2LlYSYAvVjiEsIs+hgGAH8ydhec7HgytvqrVPn+eX6odegVx
9/sZwW9fp7yvHjgTM/Bf9ZT5Av2ew33XE4NnnVKSzq8c4ofqdHzYqnLG3VyY
/BEP8t6F+NAVl7SoAikijCJWGuCKFQwh7KKPYQAQgp4rSyeEO5wSZKjdGBSS
2kiVsPWULx3vn1ytt6p/3DBn4ZYj5661o+yea2z8OOSvH2CunFbFsekBcXQH
JnPyh9mupuzwe7ERMzekb1sVGThi5KSE3A5n+72T985FBsw7q0a07RhhFLFs
HGOEZYOYYkXySugGWY1hAMCC1FxcOeOdUocv5OvK3hgf8nkLxQuN/rz6Od9l
xVfyDh3J/wWjeNPc8rnsucWYb8Z7yhf6hmTeYnqvwtYfZkj12TnP+CadV1pt
hPKH+aOeDD3eQdjIvtZKOc3xzQOHNm8JCkyuRkzVHCOMIJadYxZt+13ajymq
Bi3OC3TxxGLDRiZ2gwgyh8JqDAMABkT35dS1BxooRrm2NPJZ2b42x1RCX7Pe
f8SzwROm7cd8A21p2/u8T/RlvBtzTVHEmBey2xkeEiL789v+MA9Buz/MwPOQ
iVvqBjOi3mvLvUdHF3Upyg9E+4bSH5Bkak4P9l1UjjhjHSPsXCwrx8xte2XD
n36dLv92bLC4E6HoF0+sTYz4M8JSpp0GNmMYAFAh9U05Ow9cp/6+gu6nBT6y
L1sdljljw7bAsa8e3PXSn/zWUR1VT4+5JUvmG4cxiQfduBzjI/vC0Q0e/GGk
pyJhvH/S/SzQUP/hJL9lA7cSTg6t6/claMJqVC8cI+xULEvHrJrKguJWmvSS
qkECoegXTywurOKP2yCKzKGwGsMAgIbp9n9276/oHiwfI7prvj+tGPI6WV+9
9i/Ppzfbv2LunxWTx8z5b5fqx7jRXq+e6MB4y21q+kQWtA7lJYxVc+W7k5Xd
1kF7n8oC19DPfA7+MNFXlejns3Rwllrajy+auuaM6r43jGuCrizOf0qOAtEH
xwg7E8vaMfwGH/ySoegXTyw/XrlA5lDQxzAA4GFV5q/w/93jjz3g8d8HpdlV
klkVR6fJNtc9/DaD6Gsu+nqZ9x/GLT9Zr248OvuPT3hFpZ+7g/o+TX/j3eDp
33Qg1BB3ly729198cfCm1tiYEjbF4Q0kH/4wYKjbPNHrxTeTUzIy07Zuyiy8
+2AVYF4TjDdTwmagrxgUEWYQy8UxBugatDkr+sUUy49X4su0A30MAwDv6Gs2
TF1cxuOTM21p7Esb8FMMQnNxffROUVMTU9OOoHExhRqHxZ1pTSB1FZtjPrqG
8d1bigg7EcvKMSZoG3RS9IsvlhevxJbpAMsxDAC80Pvz2rlplMVwrDA1pUcm
/9zL5k+N8lMZ+ws7xfpSq7klK2Ts7HyV44JDvyYY5flZnxV04LlIGWEGsWwc
Y4SuQSdFv6zEcvdKbJmOcBjDAMAD+tqPY9IaeFqUTc1fLtxRyzrDIE0qtUmE
Un3ScLvk4Fvew7yi9pUo7J6CmNVVR2PH+a3Mq9faJ1SEoUvDwj2aCFOJZekY
PUwNMsNSLGevRJbpCMcxDACcsSrPrks+p+Th6RmhLn5/U4FS9I0QpA5/EQaE
BsYwIAWI7isHD1dx3d2X7Llx9MjVblh5KOAnwoDQwBgGAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgC4F7QLCL
2nQhECIUPE+ROwK94P4YsA8Idk2bdhAijjY3DZHN/aPkiJiK3BEPm3qPJiT2
AcGuadNms8gPL0go6bbZeisTpy25rOWnVQTcJ0Q2D4vSIC5T5I542NR7tEE/
INhFbZKq0wvmHlNYbcab28NmnugUf7tcyYfI5olRcr0id8TDpt4jCNYBwS5q
s/fqyr+n3jTarO3ZfwtL5e8wQkTcIUQ2T4wSoiJT+4Xsk/W9UrmvJrSVuTmX
lMKcHe4MF0096ALewD0g2DVt9n9Eh8/KV5Gm5n0RExeX60T9rHaPENk8MEpo
iiydeUlLvuL5FoYr+tqM+I3n1WIfSOWiqQddwB/YBwS7pk2r4lhEwPRX4pO2
pu2OkkXtymvRi/Z57CYhsmFHydp1avmaCh0vpl2oiFCdjg9bVc6TDv4g712I
D11xSStaF9hcNvXcuQtEw6opO/xebMTMDenbVkUGjhg5KSG3g1MWz3uDWG2S
qjOxM/a0mDkaZGndVQ3itokbJeudf8+a5+TdvGujhKKof82YHhD3E9V64OIu
Ju+diwyYd1bNsCK4pAuw2vT4LhAPUn12zjO+SeeVVhuh/GH+qCdDj3cQNrKv
tVLOLsOkatDCsRgS1cmBcRG+7gbPR8W7bYho2sSOEsqC4NIoISnqKV/oG5J5
i3LRYOO8Rdt+10j3S7wuNtRvCQpMrmbwn3UXSGrquXUXcMeiOJEwe7odc1df
6raT0F3yhvfELXWGgZ97ry33Hh1d1KUoPxDtG/q1nNXnlGODxZ1ciyH5dhI1
OMJYFylEnNv8LUrhAU+NnDzFzaOkKYoY80J2O+VDQ3znzW17ZcOffp0y58N2
3tScHuy7qNyxIo1rF0hs6rljF4hPT0XCeP+k+x8PhvoPJ/ktK+3v734Hw19m
N5WoGiQ4FkPy7qRrrYsVIq5t/gpKkib9KOkux/jIvmilStLYOG/VVBYUt9Kk
cJjOGxu2BU1YXdVH7zzbLpDW1HPrLhCLvqpEP5+lg85Z2o8vmrrmzGBlDPup
RNPgg1+yK4bk3UnXWhcxRJza/A2EBcENomRq/lQWuIZq1rnceV1ZnP+UHAXD
e3/2XUBrlIMQtpFx6y4QCUPd5oleL76ZnJKRmbZ1U2bh3QfiWYeCrkEbh2JI
3p10rXUxQ8SlzYdwviC4RZSMjSlhU/a2OWRpLnfeeDMlbAazIfZdQGeUixDW
kXHnLhAHU9OOoHExhRqH5J/15yBdgxyKIXl3Egv3DpEglcA4DkgpSv1/orm4
Pnqnfd2Xq50ndRWbYz661sPtlb+bTD1P7gI+MLdkhYydna9y9IRlKOga5FIM
ybuTWLh1iISpBMZwQFJRuo9Rfipjf2HnQ4mai503yvOzPivo4Fq96UZTz1O7
gDOk4XbJwbe8h3lF7StR2JWTmNVVR2PH+a3Mq9eif6oyNSgZJ11rXewQiYJb
RGmoAZNKbSKd2hLHecLQpTFxFOl+U8/jugAAAAAAAAAAAAAAAMAjmAkAAADg
cOvWLVev3AAAAAATeLsxAAAAAAAAAAAAAAAAAJKEQN4bFv1KN8XjBdoeDY2/
4iqxQth9pDrOozDKC3JrdBg9ZqDYDZXU1eQWyO33v6K60qPweIE2VI3Yo0ia
uKpDhbCLPk8BKUH2VO1O/uYO1nfOScrdUM13vk3eXTV0OxHqKz0IjxdoQ9LI
ZhRJE1d1qBB20ecpICHMbYeWbK9muaG0/W6ofdXblxxy3A+Q4kqPw+MF2pg0
chpF0sRVHSqEXfR5CggNqW/KTnzFb9Swp7xfXnWkkeJcAEND6mtbaw2Of2mQ
X/w264O17xep6U67p9oN1VC7dX5qg31zaLvImtovZJ+s76X++EbwR3AIbWVu
ziUlxVZZHiLQxlYj9Shi1CsFuHYo/whhF32eAsKjr0t/e09Zl8msvrrnNa/h
kz9pMtldYWzaOe0f1M+uiM7vwr0m7frF/k/uQ7c3rOZC1LShZtB2kbV05iUt
+YopPWD2RyT0tRnxG8+rh4jwKIE2NhqpRpFzvZKAfYfyjxB20ecpIAbmzsLz
HQ/C3le12ufP80u1Q68g7n4/I/jt65T3nAMHHQb+q57ys5R+b9i+64nBs04p
SedXDvFDdTo+bFU5zZGLzv0RD/LehfjQFZe0HivQhq+RYhSh6JUGLDuUf4Sw
iz5PAfHpubJ0QrjD0S+G2o1BIamNVMlMT/nS8f7J1Xqr+scNcxZuOXLuWjvK
lqjGxo9D/voB5sJiVRybHhBHdwouJ3+Y7WrKDr8XGzFzQ/q2VZGBI0ZOSsjt
cLaJN3nvXGTAvLNqLNvuJNCGrdFxFKHoZekb7w2y6lDBvRK6QVbzFOARUnNx
5Yx3Sh2+Iq4re2N8yOctFA/7+/Pq53yXFV/JO3Qk/xeMwkZzy+ey5xZjvjXu
KV/oG5J5i+mdA1t/mCHVZ+c845t0Xmm1Ecof5o96MvR4B2Ej+1or5TRn8g6c
xLslKDC5GiuNkZRAi/OaVTyNjqMIQS+74Fu07XdpP6lEEYsNG5nYDSLIHAqr
eQrwBtF9OXXtgQaKEaAtjXxWtq/N8WNWX7Pef8SzwROm7cd8O2tp2/u8T/Rl
vJtWTVHEmBey2xkeoCH7g7djycDjgolb6gazhd5ry71HRxd1KcoPRPuG0p96
Y2pOD/ZdVI41miUksLgToQ4WT6PjKHKul9I3Z8E3t+2VDX/6dbr8WxSxNjHG
GCMsZdppYDNPAX4g9U05Ow9cp67l1/20wEf2ZavDKmBs2BY49tWDu176k986
qvPH6TG3ZMl84/BWLJvucoyP7AtHN3jwh5GeioTx/kn3MyRD/YeT/JYN3Eo4
OYms35egCavxvJCSQAKhDhZPo+MocqqXxjdnwbdqKguKW2nSS3HE4sJqjOE2
iCJzKKzmKcAHptv/2b2/onuwuororvn+tGLIq1Z99dq/PJ/ebP/6tX/ETB4z
579dqh/jRnu9eqID4w2wqekTWdA6lBcUVs2V705WdlsH7X0qC1xDPys4+MNE
X1Win8/SwRFsaT++aOqaM6r73jDOF11ZnP+UHIVzHyQr8MEvGepgkTUO4jiK
nOml9439YiWSWH68coHMoaDPU4BPrMr8Ff6/e/yxBzz++6A0u0Irq+LoNNnm
uoef9BN9zUVfL/P+w7jlJ+vVjUdn//EJr6j0c3dQXzfpb7wbPP2bDoQS2+7S
xf7+iy8O3vAZG1PCpji8geTDHwYMdZsner34ZnJKRmba1k2ZhXcfzBDm+WK8
mRI2A2k2SVagzVkdLLrGQShGEYNeZt9YL1ZiieXHK/Fl2oE+TwGR0ddsmLq4
jMenStrS2Jc24H/8EpqL66N3ivqxbWraETQuplDjsPYxzRdSV7E55qNr+N9L
lZJAJ3Ww+BopRpETvayCz4R4YnnxSmyZDrCcp4AI9P68dm4aZTEcK0xN6ZHJ
P/ey+VOj/FTG/sJOsb7waW7JChk7O1/lOBnp54tRnp/1WUEHSxclItBJHSwr
jZSjiEEvm+AzIqZY7l6JLdMRDvMUEBx97ccxaQ08Lcqm5i8X7qhl/elLmlRq
kwhl7KThdsnBt7yHeUXtK1HYPSQwq6uOxo7zW5lXr7VPNghDl4abe1IQyAxL
jTSjiEovy+DTI7pYzl6JLNMRjvMUEBir8uy65HNKHp4sEeri9zcVKEXfJABw
PfyNIkBoYJ5KH6L7ysHDVVx3viV7bhw9crUbZuUjCj+jCBAamKcAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu
hcA9ZRgAAIA9BKwyjBiwTxnGBroAAB5tLPLDCxJKum223srEaUsua13tj6Qh
sU8ZRgG6AACA/4VUnV4w95jCajPe3B4280QnbM6KAvopwwhAFwAA8Cu9V1f+
PfWm0WZtz/5bWCrt8X6m9gvZJ+t7pXJfTWgrc3MuKYU5sdgZWKcMI4DYBQAA
PAL0p2bhs/JVpKl5X8TExeU6yhzN0pmXtOQrvtJCntDXZsRvPK8W+xgc3FOG
nYPUBQAAPBJYFcciAqa/Ep+0NW13lCxqV16L3iEVJlSn48NWleuo/t6VkPcu
xIeuuKQVM3fHPmXYOShdAACA22LVlB1+LzZi5ob0basiA0eMnJSQ20F7i0+q
zsTO2NPCeCB7/5oxPSDuJ6olGcsW7873L8rnIgPmnVVzXMJ4V4HVJkoXAADg
xpDqs3Oe8U06r7TaCOUP80c9GXq8w0JdVTuwHoSvu8Gc7PWUL/QNybxFuWhQ
2SJsZF9rpZw22bNo2+/SnqeO4Xw/hvotQYHJ1VyTVTyj7NukigxSFwAA4MZ0
l7zhPXFLnWHg595ry71HRxd3cqmq1RRFjHkhu53ywamjraIuRfmBaN/Qr+XU
aaG5ba9s+NOvU6bd2M6bmtODfReVO1akWRQnEmZPt2Pu6kvdlIsr3xGjbtNZ
ZAAA8Eh6KhLG+yfdzx0N9R9O8ltW2k1wqarVXY7xkX3RSpUnU9kiB1bK8Jdp
Vx6rprKguJUmi8Z03tiwLWjC6qo+LD1cjbJu01lkAADwQPqqEv18lg4uIpb2
44umrjnzUM0Wq6paU/OnssA1VAsfjS32Kw+u87qyOP8pOQputQ/8R0yAyAAA
4J4Y6jZP9HrxzeSUjMy0rZsyC+/+Nv9ZV9UaG1PCpuxtc0iU6WyxXnlwnTfe
TAmbwXWJEyJivEcGAAD3xNS0I2hcTKHG4ckAp6paQnNxffRO+7ovWltsVx5M
50ldxeaYj671cKu6ECJivEcGAAD3xNySFTJ2dr7KfjHgXlVrlJ/K2F/Y+VCu
TGeL9cqD57xRnp/1WUEH1xIyISLGe2QAAHBDSMPtkoNveQ/zitpXoqCtNeNi
wKRSm0intszqqqOx4/xW5tVr0XNLbOcJQ5fGxFGkEBHjPTIAAAAAAAAAAAAA
AAAAAEiYmQAAcODWrVuunsQAAAAAE3jfdgcAAAAAAAAAAAAAAACARxsCeT9e
9Cvdl0dB46+4SqwQdh+pjgPcCaO8ILdGhzEkDRT78ZK6mtwCuf2eY1RXehpo
GrGDLE1c1aFC2EUfxgAgImRP1e7kb+5gbbVAUu7Ha77zbfLuqqG76FBf6Vkg
aGQTZGniqg4Vwi76MAYA8TC3HVqyvZrlPur2+/H2VW9fcshxG0yKKz0Reo2c
gixNXNWhQthFH8YAwBFS35Sd+IrfqGFPeb+86kgjxXEYhobU17bWGhz/0iC/
+G3WB2vfL1LTHQZPtR+voXbr/NQG++bQdu41tV/IPlnfS52fIPgjBoS2Mjfn
kpJiKzQmjdRBZtQrBdiJFRIh7KIPYwDgjL4u/e09ZV0ms/rqnte8hk/+pMlk
d4Wxaee0f1A/nCM6vwv3mrTrF/s/uQ/dfryaC1HThppB27nX0pmXtOQrpvyH
2R/x0NdmxG88rx6ig1kjVZCd65UE+GKFQwi76MMYAHjA3Fl4vuPBuOqrWu3z
5/ml2qFXEHe/nxH89nXKm+qBYzED/1VPmSzQ78fbdz0xeNYpJen8yiF+qE7H
h60qpzlp1Lk/okLeuxAfuuKSFlUjRZBR9EoDXLGCIYRd9GEMALzTc2XphHCH
E48MtRuDQlIbqbK1nvKl4/2Tq/VW9Y8b5izccuTctXaUTXmNjR+H/PUDzJXT
qjg2PSCO7vBnTv4w29WUHX4vNmLmhvRtqyIDR4yclJDbgbBDO3nvXGTAvLNq
RPOOQUbRy9I33hvEFCuSV0I3yGoYAwA6pObiyhnvlDp8G19X9sb4kM9bKN5m
9OfVz/kuK76Sd+hI/i8YlZvmls9lzy3GfC3eU77QNyTzFtNLFbb+MEOqz855
xjfpvNJqI5Q/zB/1ZOjxDovzmlVD/ZagwORqxFTNMcgIeql9I2xkX2ulnOaY
bJvNom2/S/tJJYpYbNjIxG4QQeZQWA1jAECF6L6cuvZAA8UQ15ZGPivb1+aY
R+hr1vuPeDZ4wrT9mK+fLW17n/eJvox3V64pihjzQnY7wxNCZH/wNocZeB4y
cUvdYDrUe2259+jo4k6EOlhTc3qw76JyxBnrGGTneil9K+pSlB+I9g2lO27J
3LZXNvzp1+nyb1HE2rh3gTOZTmAp004Dm2EMAEiQ+qacnQeuU39ZQffTAh/Z
l60Oy5yxYVvg2FcP7nrpT37rqrBKuMwtWTLfOIwZPOjG5Rgf2ReObvDgDyM9
FQnj/ZPup4CG+g8n+S0r7SYQ6mD73QmasBrVEccgO9VL4xvp5Ag8q6ayoLiV
Jr0URywubGRiN4gicyishjEAIGC6/Z/d+yu6B8vHiO6a708rhrxL1lev/cvz
6c3275f7p8TkMXP+26X6MW6016snOjBecZuaPpEFrUN5A2PVXPnuZGW3ddDe
p7LANfTTnoM/TPRVJfr5LB2copb244umrjnzUEUUUx2srizOf0qOAtENxyA7
00vvG/vFSiSx/HjlAplDQR/GAICBVZm/wv93jz/2gMd/H5RmV0lmVRydJttc
9/CrDKKvuejrZd5/GLf8ZL268ejsPz7hFZV+7g7q+zT9jXeDp3/TgVBD3F26
2N9/8cXBO1pjY0rYFIc3kHz4w4ChbvNErxffTE7JyEzbuimz8O5vSwBzHazx
ZkrYDPQVgyLIDHqZfWO9WIkllh+vxJdpB/owBgB+0ddsmLq4jMfHZtrS2Jc2
4OcXhObi+uidouYlpqYdQeNiCjUOi7uTOlhSV7E55qNrGN+9pQiyE720vrFd
rMQTy4tXYst0gOUwBgDu9P68dm4aZTEcK0xN6ZHJP/ey+VOj/FTG/sJOsb7R
am7JChk7O19lP32d1MEa5flZnxV04HlJGWQGvXS+sV6sxBTL3SuxZTrCYRgD
AFf0tR/HpDXwtCibmr9cuKOWdXpBmlRqkwh1+qThdsnBt7yHeUXtK1FgPQUh
DF0aFh7SBJlKL5NvZnXV0dhxfivz6rXoj3dFF8vZK5FlOsJxGAMAN6zKs+uS
zyl5eHRGqIvf31SgFH0XBDeAvyADQgPDGHA5RPeVg4eruG7tS/bcOHrkajcs
O9TwE2RAaGAYAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAADELgnvbrDnikKAAAHgEM2Kf9soEQd1kUQZTIiiRl
3R2BiAHuAol92i8iFvnhBQkl3TZbb2XitCWXtbw1jIAwolypyNXW3RGIGODW
oJ/2iwapOr1g7jGF1Wa8uT1s5olOl2xVy6so1yqSRDzdCogY4MZgnfaLRu/V
lX9PvWm0Wduz/xaWyt9ZgOjwLcq1ihCtm9ovZJ+s75XKjTqhrczNuaQU5jxs
J0DEAHcF97RfJPpzk/BZ+SrS1LwvYuLicp3YSQr/olyrCMm6pTMvaclXPN7s
8IG+NiN+43m16IcsQcQANwX7tF8krIpjEQHTX4lP2pq2O0oWtSuvRc+UiFi7
Ti1fU6HjxfQAAojCVMQzKNYJ1en4sFXl/EWRJ8h7F+JDV1zSipuJQsQAiWHV
lB1+LzZi5ob0basiA0eMnJSQ28HpfgirQVJ1JnbGnhbk4+mtd/49a56T8gje
FWG1iatIfOv9i9D0gLifqBYY1w6G/iXmXGTAvLNqjksM7yPQ4yMGSAtSfXbO
M75J55VWG6H8Yf6oJ0OPdxA2sq+1Us4uwaNq0EJdBjwwIcLX3UDPTlHWZBwH
OImiihK2IvGt95Qv9A3JvEW5CrEZDBZt+10j3S/x+sJQvyUoMLmaa/T4HoGe
HzFAUnSXvOE9cUudYeDn3mvLvUdHF3Upyg9E+4Z+LWf1ie/YYHEnxzJgi+JE
wuzpA4QHPDVy8pTBH+euvtRNObAFcID3KP2m6CEwFHGwrimKGPNCdjvlU0h8
Q+a2vbLhT79OmURSNsjUF6bm9GDfReWOJYlcw8VtALhjxAD3paciYbx/0v0P
WkP9h5P8lpX2D/T+rg5/md1qQ9UgwVcZMEqeLIQDvEfJhdZ1l2N8ZF+0UmV9
bAxZNZUFxa00OSFmXxgbtgVNWF3VhyuJk1HneHzEACnRV5Xo57N0sJst7ccX
TV1zZrAmjP1qQ9Pgg19yLQNGWJOFcID3KLnSuqn5U1ngGqpp7PLBoCuL85+S
o+BWSMD/APD0iAFSwlC3eaLXi28mp2Rkpm3dlFl498EwYj2o6Bq08VMG7HxN
FsIB3qPkWuvGxpSwKXvbHNI+lw8G482UsBlc4ynEAPDsiAFSwtS0I2hcTKHG
4TaKdQ5G16Agtc0iOcB7lLAQwDqhubg+eqd94Z+rBwOpq9gc89G1Hm41BMKM
QE+OGCAlzC1ZIWNn56sc+5TloKJrUJjaZpEc4D1KWAhk3Sg/lbG/sPOhzM/F
g8Eoz8/6rKCDaw2hcCPQUyMGSAbScLvk4Fvew7yi9pUo7ApzzOqqo7Hj/Fbm
1WvR0wmmBkVBCAd4j5KErJMmldpECmMIuy8IQ5fGxLHPBB+BHhcxAAAAAAAA
AAAAAAAAAGBkJgAAns6tW7dcvdIAAAAAAAAAAAAAAAAAAAAAACA5CI57EUse
jxdoezQ0/oqrxAph95HqOAANA9e9iKWOxwu0oWo0ygtya3RuP+9d1aFC2KVq
k9TV5BbIpXVWICAmJF+bIUsVjxdoQ9JI9lTtTv7mjgfsp+CqDhXCLnWb5jvf
Ju+ugs2IHnU4b4YsdTxeoI1Jo7nt0JLt1R61WbqrOlQIu/Zt9lVvX3LIcTdR
QOKQ+qbsxFf8Rg17yvvlVUcaac8LIw3yi99mfbD2/SI15cHqNtStaE3tF7JP
1vdS20GwIjiEtjI355KSYgMvDxFoY6vR0JD62tZag93/ZdQrBbh2KP8IYZeq
TUPt1vmpDfYdBkgbfV3623vKukxm9dU9r3kNn/xJk4nuUqLzu3CvSbt+ob4A
bStaS2de0pKvmNIDZisioa/NiN94Xj1EhEcJtLHRaGzaOe0fdk9AneuVBOw7
lH+EsEvXpuZC1DSGKQ1IEHNn4fmOB13WV7Xa58/zS7V01w4c1Bj4r3rKT120
rWgJ1en4sFXlNAdBOrciHuS9C/GhKy5pf03+PE2gDV8jcff7GcFvX3/4yQWK
XmnAskP5Rwi79G32XU8MnnVKKd17GICRnitLJ4RTHGbzv78uXzreP7lab1X/
uGHOwi1Hzl1rx9yP1qo4Nj0gju5sXr6sUNjVlB1+LzZi5ob0basiA0eMnJSQ
2+Fsa3Hy3rnIgHln1Vi23UmgDVujoXZjUEhq40MpMYpelr7x3iCrDhXcK6Eb
NDZ+HPLXDySQAAAsIDUXV854p5T6IHbbYBb9nO+y4it5h47k/8KuBLKnfKFv
SOYtpncOPFihgFSfnfOMb9J5pdVGKH+YP+rJ0OMdhI3sa62U0z4/N9RvCQpM
rsZKYyQl0OK8ZhVPo67sjfEhn7c8pA5BL7vgW7Ttd2k/qUQRiw0bmdgNIsgc
irnlc9lziz2zTMjTIbovp6490EA/evQ16/1HPBs8Ydp+9u9xNUURY17Ibmd4
gIZsxaI4kTB7uh1zV1+i/kgZeFwwcUvdYLbQe2259+jooi5F+YFo31D6s3hM
zenBvovKsUazhAQWdyLUweJp1JZGPivb1/ZQwJzrpfTNWfDNbXtlw59+nS7/
FkWsTYwxxghLmXYa2vY+7xN92Q0eLgFDIPVNOTsPXGf6HoCxYVvg2FcP7nrp
T37rqM5PR0J3OcZH9kUr/WLEixVHeioSxvsn3c+QDPUfTvJbNnA74OR8tH5f
giasxvNCSgIJhDpYPI26nxb4yL58WJ1TvTS+OQu+VVNZUNxKkyCIIxYXVmMM
t0EUmUMxt2TJfOPwMgvA5Zhu/2f3/oruwcosorvm+9MKx9e0/WNr8pg5/+1S
/Rg32uvVEx0Y74qtmivfnazstg628qkscA39rOBghYm+qkQ/n6WDI9jSfnzR
1DVnVPe9YZwvurI4/yk5Cuc+SFbgg18y1MEiaxxEX732L8+nNz80OpzppfeN
/WIlklh+vHKBzKGYmj6RBa0T7QUmwANWZf4K/989/tgDHv99UJp9kRbR11z0
9TLvP4xbfrJe3Xh09h+f8IpKP3cH9cVUd+lif//FFwdv+IyNKWFTqN8icrTC
gKFu80SvF99MTsnITNu6KbPw7oMZwjxfjDdTwmYgzSbJCrQ5q4NF1ziIVXF0
mmxz3cPvixj0MvvGerESSyw/Xokv0w79jXeDp3/T4cpSeEDaEJqL66N3ivqx
bWraETQuplDjsPYxzRdSV7E55qNr+N9LlZJAJ3Ww+Br1NRumLi4b8mzSiV5W
wWdCPLG8eCW2TAe0pbEvbYA0GWDEKD+Vsb+wU6wvfJpbskLGzs5XOU5G+vli
lOdnfVbQwdJFiQh0UgfLSmPvz2vnpjXa3TMz6GUTfEbEFMvdK7FlOmJqSo9M
/rkX0zzw6EGaVGqTCGXspOF2ycG3vId5Re0rUdg9JDCrq47GjvNbmVevtU82
CEOXhpt7UhDIDEuN+tqPY9IaHB5kUullGXx6RBfL2SuRZTpiav5y4Y5ayJIB
wHOxKs+uSz6nhOeTbgChLn5/U4FS9M08AAAQE6L7ysHDVe6/f7KnQ/bcOHrk
ajd8egIAAAAAAAAAIGn+P8tvKlE=
    "], {{0, 207}, {476, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{476, 207},
  PlotRange->{{0, 476}, {0, 207}}]], "Output",
 ImageSize->{480, 207},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->{"OneLoopSimplify", "RasterizedOutput"},
 CellLabel->"Out[5]=",
 CellID->1768019970]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FCE", "[", "%", "]"}], "/.", 
   RowBox[{
    RowBox[{"SPD", "[", 
     SubscriptBox["p", "1"], "]"}], "\[Rule]", "0"}]}], "//", 
  "FCI"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[6]:=",
 CellID->1848776094],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnX1UVHX+x21//7R7PFtr6x5qzQQJFJKCqcBMXNJWk4wF6aQGniPZenwi
pPIx2zQNDUMjLLV8Ov58KOMYW4uKJiBooCaIPAkhgjKAMM0DME/MvbOArMHM
vXfu08zcub5f59RRufP9ft6f7+cz33vv98P3653wVsw/fzdkyJC37+/5X8y8
FRHJyfNWzXyw5y+vJr69cEHim/NfSnznzQVvJocl/F/PP77R85/qviFDev9s
BQAAAAAXCE3xJ/98ecJY76fmbK/oIt1tDgAAAE4Y6v9/z89awmqq/zJ8dOQZ
tRO6IDA3AI8CEQs8C9Kit/QFbVdJ4oT5FzrEabW7cd/MhAKN1dpZkhg+97xW
nFYBcBaIWCADuq5+/OauOqM4jZHtx2dOP6y0WI3XNoRNOdpCiNMsAE4CEQs8
HrKj/NBXZ9stYrXXeWnR31OuGa2WpgN/C0upEWlyAMBZIGKBZ0MaGk5m5rea
rVais6FWJ8J3ec8dzfgXs9tJU93OiID4Yh1ubYC0QcQCj8Z861C8v49/YA8B
T0x8r1wvvEmL8nDEmEkvxCWtS90apYjaklWvx5IRkDCIWCA9LOqife/GRkxZ
mbZ+cWTgsIfGJWQ2d7usTbL9ROzk7fVmgR0CIAhELPBsSNXJaY/4Jp1us1iJ
th9mDH8w9Ehzt8D6cKo2CSvZdaOkcdCtS29OjF9+VYS7egCEgIgFHo2m4DXv
gLWVht4/d15e4D0iOr9FaH24fZt5rcri3dG+oV81Cr3VB0B8ELHAk+m4kDDa
P6ms7/bCUPXBOL/5hRpCYH04VZuk1VSXNv55JAWQIIhY4Ml0lSb6+czr+6bu
bjoyZ+LSEwNKCXnWh9O0iaQAEgURCzwZQ+WaAK9nX0/euC09dd3q9Nzbv4Us
7/pwujaRFECaIGKBJ2Oq3RQ0KiZXbbeIKaA+nLZNJAWQJIhY4MmY6zNCRk7N
breNXyH14XRtIimANEHEAo+FNNws2POG91CvqJ0FSqM4v8DA1KZZVXowdpTf
oqwqrWi/xw+AMBCxAAAAAAAAAAAAAMCTmQIAmDLl+vXryCbgAkSJNAAAe7qV
RxOmTrJh+pJzGuzMB0QFkQYAAAAAAAAAAAAA3AXBep9w9ld6KLIXaL03NLoR
ZNNdZC/QiRgbczLLdRx8ZqDYJ5zUlWfmNNruUkh1payQvUDrvaFRPJBN/JG9
QKdBdpRuTf76FqfDokjKfcLNt75J3lraQTq+UkbIXqD13tAoEsgmQcheoLMw
N+ydu6Gsi9+HbfcJ7yrbMHdvA1UM89xR3HOQvUDrvaFRGMgmcXCqQFJfeyDx
Bb/hQ//k/fzi/TU0B1Wbms4cOFbVKZX3OoS2JPPQuTaa3dMM1SmvrKsw2P07
aWg8+03G+8vey1MRNA1T7RNuqFg3I6Xatjl2O4oz+o2FPU6H3pMyEWgVrpED
yKZBlyCb/ofokTYYfWXaW9uLWk1m1aXtr3g98OTHtSa7a7pbspLmfimxiVJf
sS1u1WkVhV+MtZvD/0H9Copo+Xa817gtv9hr7IVun3D1majwwX5ht6O4Y78x
2+MiqDwpK4FWIRq5dYNsuguy6S5OiLTBmFtyTzf3y+4qXeLz1xmFWptLiPbj
cWGLi3Wi9y0Q8tczcaELz2lt52bi9neTg9+6QvkQ2Hv2a+C/quxvLaxM+4R3
XUkMfvH7NtLxlYPsYOE3Jntch50n5SbQylsjN5BNd0E2OTXSGOi4OG/s+B22
760sysOTxsz+icp/FnXRvndjI6asTFu/ODJw2EPjEjKbBe0Sz61B8tdTkWNe
PqmyiTxDxaqgkJQaqlm7o3jeaP/kMr1F9ePKabPW7j91uYnNZuHGmo9Cnnqf
Y3gw+E2oPcz98hgUGk866MiDBFp5ahQAsokGZJMzIdVnF01+u9DuF/g7imf5
hqRfp1ymJlUnpz3im3S6zWIl2n6YMfzB0CPNhJXsulHSSPNWsOfZSNt0m9a7
VA1201ZdGqrWBgUml9nMbrqi10aHfFZPYXDPDdLjvvPzL2bt3Z/9C4f6TXP9
Z4rH4zkuMTP5TaA9zPAZFGpPMiMpgfRBchc+GvnbiGyiA9nkPAjN+ZRlu6sp
LFPnRTz6zIEmyvc5vU8xAWsr+ybWzssLvEdE57Uqi3dH+4bSHd5kbtiheODh
V+mmVfsG81voqy5NdWnBvnOKbQJCWxj5mGJng33/+vIV/sMeCx4bvotypZye
7oYdT/tEn+f2IMzkN472cNszh/ug0HmSGQkJZAqSu/DRyBNkEwPIJidB6msP
bd59hbq6X3c+xkfx+Q0q13RcSBjtn3Rn1jFUfTDOb37v7QfzGXwWdUlO/g2a
iYyqQYK+6tJYvT5o7JJSm/d2up9m+ii+sDe45+rAkS/t2fLcX/yW236GGXN9
hsJ3NsdhYfCbUHsY4TMoNJ5kRkoCGYJkoDmcNfIB2cQMsskpmG7+e+uuC5q+
Ih1CU/7dceWglV5T3SeKwKVUNnWVJvr5zOsLhe6mI3MmLj3RV0/D/yhVmgb7
f2hfdakrmu0/4ZDSZorWly174um0Otvl6h6znnx02n9a23+cPcLrpaPNHJaL
TbUfK4KWs1masKgvfnusRHPHDXR+E2wPE/wGhdqTFEhWYP8PGUpzWWsUBLLJ
Ecgm8bG0ZS/0//19Q/q57w9Bqbb1OsaajWET7NZqeianyjUBXs++nrxxW3rq
utXpubf7VfEOPLoGrTRVl8ZrG8Mm23dkUR4MV6ypHLiEQnTV5X013/uPoxYc
q1LVHJz65/u9otJO3WK7AKK/+k7wpK+bWVSjagrj/f3jz/Y9n9H5Tbg9DPAb
FBpPUiBZgVZHpbnsNfIH2cQCZJN7INRnV0Rvtp0+TbWbgkbF5KrtnMU38Ggb
pK66JHUX1sR8eLnDfrD05SsnxheJWNKlLYx9biX3OiFqvzkVXoNC70kHSEmg
g9Jc3hpFB9mEbHIXxsbvt+3KbRkwF5rrM0JGTs1ut7eWZ+DRNUhddWlszM74
NKeZ+l1Z58/LpqdS1kjxwlSbFpn8cyefj9r7zanwGRRGTzpEIgIdlOYK0yg6
yCZkk7sgTe0q0x1FpOFmwZ43vId6Re0sUNo8u5hVpQdjR/ktyqrSsn83xNQg
JYShVW2iv05f8VFMarVIkWeq+2LWpgredwED/OZUeA6KA0+y6VgCApkRrlF0
kE38kEKwOTWbwAAsbSeXJ59qE2FvBUKV/97qnDYXLlcAIC2QTcBNEJqLe/aV
ctkhmQqy4+rB/Zc07tzXCQC3g2wCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAnCMdHw9/TwD8AuBsCiceIgcXR8ALx6CGQ
vX88enTcAjzmErob981MKNBYrZ0lieFzz2vdbY+kIVkcDc8d+QyBHP0jn9Fx
FfCYyyHbj8+cflhpsRqvbQibcrQFuxSzgeloeM7IcAhk5B8Zjo6TgcdcT+el
RX9PuWa0WpoO/C0shfYsQFPTmQPHqjql8oBEaEsyD51rc8+p2MxHw3OH5RB4
DPLyDxKEK/CYy+mZMMe/mN1Omup2RgTEF+soZ87ulqykuV+KdXMlEvqKbXGr
TqtcfVCVg6PhecBqCDwGufkHCcIVeMzlWJSHI8ZMeiEuaV3q1ihF1Jaser3d
7Ei0H48LW1ysc4d9TJC/nokLXXhO68rp3MHR8HxgMwQeg+z8gwThCjwmBhZ1
0b53YyOmrExbvzgycNhD4xIym2kfFMj2E7GTt9ebGRtUHp40ZvZPVC7n1Jfo
xvc4/VTkmJdPqgQ6XXQVnNpkMwTuRX7+Ebd3JMigPuExUSBVJ6c94pt0us1i
Jdp+mDH8wdAjzd3U1by9Lh+//CrzLVNH8SzfkPTrlONC1RdhJbtulDTS3jJ1
a5tuG+l+yMH4HgxVa4MCk8uE3vJx65R/m1SeYTUEbkZ+/hG1dyQIvlLER1Pw
mnfA2kpD7587Ly/wHhGd3yKkmledF/HoMweaKF8Y2feV16os3h3tG/pVI/WU
Z27YoXjg4VcpZ2LOxpvq0oJ95xTbl7V1K48mTJ1kw/Ql5zSUYy22x6jbdOQZ
6eIJ/hE64gJ6R4LcC18pLqbjQsJo/6Q704mh6oNxfvMLNYSQal7d+Rgfxec3
qKZOqr7IXk+Mf542HSzqkpz8GzQTK0fjjdXrg8YuKe3ipEdop7zbdOQZqSI/
/4jbOxIEXyli01Wa6Oczr8+y7qYjcyYuPTGg8ItXNa+p7hNF4FIqYTR98U9G
rsbrimb7TzikFLayLL7HnOAZNyI//4jcOxIEXykiY6hcE+D17OvJG7elp65b
nZ57+zflvKt5jTUbwybsaLCbO+n64u1zrsYbr20Mmyw0653hMdE940bk5x/R
e0eCcEXeHhOMqXZT0KiYXLXd84Wgal5CfXZF9Gbb4jHavnjf1XAzntRdWBPz
4eUOYYvKzvCY6J5xI/LzjxN6R4LgK0VEzPUZISOnZrfbmiG8mtfY+P22Xbkt
A6ZPur54+5yb8cbG7IxPc5qF1qE5w2Oie8aNyM8/TuodCcIVuXpMGKThZsGe
N7yHekXtLFDSVt8I6cDUrjKRDvsyq0oPxo7yW5RVpWU/QXM2njC0qk0CRTrD
Y6J7xo3Izz/O7R0JwrkDuXkMAAAAAAAAAAAAAPBiCgCicv36dYQlAPwQJX0A
cAbcfgsbAAAAAAAAAAAAAAAAPBOC9b7Q7K/0XGSsUeLSJG6ecGQv0CprjS6V
ZmzMySzXcejEQLGzLqkrz8xptN2UjOpKuSFjjRKXJnHzhCN7gVZZa3ShNLKj
dGvy17c4/c4/SbmzrvnWN8lbSwfvAEN9pbyQsUaJS5O4ecKRvUCrrDW6Tpq5
Ye/cDWU89zO33Vm3q2zD3L32G0VSXClHZKxR4tIkbp5wZC/QKmuNAqWR+toD
iS/4DR/6J+/nF++voTjJwlCd8sq6CoP9Jw2NZ7/JeH/Ze3kqgq5xip11DRXr
ZqRU2zbHbgNhU9OZA8eqOqnf7bCwxxUQ2pLMQ+faKPZEc6SRUZ0U4C+ND44j
s/86fnFoj+SjS6j/JS/QivThh74y7a3tRa0ms+rS9le8Hnjy41qTzRXG2s3h
/6B+Z0O0fDvea9yWX2w/0m8bzbbA6jNR4YO7YbeBcHdLVtLcL5kmLGZ7XIe+
YlvcqtOqQTocaXSsThLwkcazJ4eReRd+cTgYD4ku/v73EIFWpA93zC25p5v7
h62rdInPX2cUagdfQdz+bnLwW1coX6n0nhka+K8q+xt1K9O2wF1XEoNf/L6N
dHzlIDvaj8eFLS6mOb3UsT0uhfz1TFzownNa1hrZqJMGnKXxxHFk/ga/OByI
50QXT/97jkAr0kcQHRfnjR1vd76RoWJVUEhKDdU011E8b7R/cpneovpx5bRZ
a/efutzEZntdY81HIU+9zzFaLMrDk8bMpjuDWpA9zP2qi/a9GxsxZWXa+sWR
gcMeGpeQ2cxiD3ny11ORY14+qWLZPRt1PC0RvUGO0sSAOjJ/+7Hgcfek6OLl
f08SaEX68IdUn100+e1Cux0udEWvjQ75rJ4ihXrukR73nZ9/MWvv/uxfOBQ8
mus/Uzwez3FNtqN4lm9I+nWmYhm+9jBDqk5Oe8Q36XSbxUq0/TBj+IOhR5q7
HZd6GqrWBgUml7GcW1moo7aEsJJdN0oaad8bd2ubbtPmokukCYcuMv+HCOMu
qehyNKZ8/C8pgUgfZ6UPoTmfsmx3NYUebWHkY4qdDfbzjL58hf+wx4LHhu+i
vU2iprthx9M+0ee5PQGp8yIefeZAE8OLI9b2cNujqfdJM2BtZd+zQ+flBd4j
ovNbWJR6murSgn3nFLOcqxyro7Qkr1VZvDvaN5TukClzww7FAw+/Sneb4hJp
QqGPzH54x+EAJBRdjsaUn/8lJBDp46T0IfW1hzbvvkL9yz26n2b6KL64YTe0
xur1gSNf2rPlub/4LS/lVIxors9Q+M7mqEN3PsZH8bm9GSLYw0jHhYTR/kl3
5k5D1Qfj/OYXaggWpZ495gSNXcLWEIfqaCwhHZwVaFGX5OTfoPkKdI00QTBG
5l1rhI+7lKLL0Zjy8r+UBCJ9nJE+ppv/3rrrgqavyIjQlH93XDlopVpftuyJ
p9PqbFeve/Q/+ei0/7S2/zh7hNdLR5s5rK+aaj9WBC1n8y7for747bESjaWv
v08UgUvpxQuwh4mu0kQ/n3l949HddGTOxKUnBlQFMZV66opm+084pGRphiN1
9JbwP43XRdIE4CAy71zDf9wlG10OxpS1/yUrsP+HSB+xsLRlL/T//X1D+rnv
D0GpNvVGFuXBcMWayoELkkRXXd5X873/OGrBsSpVzcGpf77fKyrt1C226yH6
q+8ET/q6mUVxqqYw3t8//mzf45qxZmPYBOplLoH2MGCoXBPg9ezryRu3paeu
W52ee/u38WYu9TRe2xg2mUN4MKhjtoR3HLpMGk8cR6bQcZdsdDGPKXv/S1ag
Fenj7PSxQ1++cmJ8kYi1PNrC2OdWci+sIdRnV0RvFquejRWm2k1Bo2Jy1XYB
7aDUk9RdWBPz4eUODongQB2tJXzj0IXSPAIpRRfTmPL2v5QEIn3ckD6dPy+b
nkpZccgLU21aZPLPnXw+amz8ftuu3BbeK1kcMddnhIycmt1u63MHpZ7GxuyM
T3OaOVvJoI7OEt5x6GJpHoFEootpTIX5XyICkT4cexMJfcVHManVIn2Pm+q+
mLWpgvdNAWlqV5lcMJeRhpsFe97wHuoVtbNAyen5kjC0qvlaSKWOyRKzqvRg
7Ci/RVlVWvbv2twjzSOQQnQxjKlw/0tBIDNIH6dhaTu5PPlUmwhbLRCq/PdW
57Q5f3kMAADAQAjNxT37SrnsN04F2XH14P5LGnfuvAMAAAAAAAAAAADAzH8B
AcIQCg==
    "], {{0, 99}, {493, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSize->Automatic,
  ImageSizeRaw->{493, 99},
  PlotRange->{{0, 493}, {0, 99}}]], "Output",
 ImageSize->{497, 99},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->{"OneLoopSimplify", "RasterizedOutput"},
 CellLabel->"Out[6]=",
 CellID->1233007026]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"OneLoopSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FAD", "[", 
     RowBox[{
      RowBox[{"k", "-", 
       SubscriptBox["p", "1"]}], ",", 
      RowBox[{"k", "-", 
       SubscriptBox["p", "2"]}]}], "]"}], " ", 
    RowBox[{
     RowBox[{"SPD", "[", 
      RowBox[{"k", ",", "l"}], "]"}], "^", "2"}]}], ",", "k"}], 
  "]"}]], "Input",
 CellTags->"OneLoopSimplify",
 CellLabel->"In[7]:=",
 CellID->214879980],

Cell[BoxData[
 FormBox[
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           RowBox[{
            FormBox[
             FormBox["l",
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\"\[CenterDot]\"\>",
             TraditionalForm], 
            FormBox[
             SubscriptBox[
              FormBox[
               FormBox["p",
                TraditionalForm],
               TraditionalForm], 
              FormBox["1",
               TraditionalForm]],
             TraditionalForm]}],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"]}], "+", 
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{
          FormBox["\<\"(\"\>",
           TraditionalForm], 
          FormBox[
           RowBox[{
            FormBox[
             FormBox["l",
              TraditionalForm],
             TraditionalForm], 
            FormBox["\<\"\[CenterDot]\"\>",
             TraditionalForm], 
            FormBox[
             SubscriptBox[
              FormBox[
               FormBox["p",
                TraditionalForm],
               TraditionalForm], 
              FormBox["2",
               TraditionalForm]],
             TraditionalForm]}],
           TraditionalForm], 
          FormBox["\<\")\"\>",
           TraditionalForm]}], "2"]}], "+", 
       RowBox[{"2", " ", "D", " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           FormBox["l",
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["2",
             TraditionalForm]],
           TraditionalForm]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           FormBox["l",
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["1",
             TraditionalForm]],
           TraditionalForm]}], ")"}]}], "-", 
       RowBox[{
        SuperscriptBox[
         FormBox[
          FormBox["l",
           TraditionalForm],
          TraditionalForm], "2"], " ", 
        SuperscriptBox[
         FormBox[
          SubscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], 
           FormBox["1",
            TraditionalForm]],
          TraditionalForm], "2"]}], "-", 
       RowBox[{
        SuperscriptBox[
         FormBox[
          FormBox["l",
           TraditionalForm],
          TraditionalForm], "2"], " ", 
        SuperscriptBox[
         FormBox[
          SubscriptBox[
           FormBox[
            FormBox["p",
             TraditionalForm],
            TraditionalForm], 
           FormBox["2",
            TraditionalForm]],
          TraditionalForm], "2"]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           FormBox["l",
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["2",
             TraditionalForm]],
           TraditionalForm]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           FormBox["l",
            TraditionalForm],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["1",
             TraditionalForm]],
           TraditionalForm]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         FormBox[
          FormBox["l",
           TraditionalForm],
          TraditionalForm], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["1",
             TraditionalForm]],
           TraditionalForm], 
          FormBox["\<\"\[CenterDot]\"\>",
           TraditionalForm], 
          FormBox[
           SubscriptBox[
            FormBox[
             FormBox["p",
              TraditionalForm],
             TraditionalForm], 
            FormBox["2",
             TraditionalForm]],
           TraditionalForm]}], ")"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "D"}], ")"}], " ", 
       RowBox[{
        InterpretationBox[
         SuperscriptBox[
          FormBox[
           FormBox["k",
            TraditionalForm],
           TraditionalForm], "2"],
         SequenceForm[
          FeynCalc`Pair[
           FeynCalc`Momentum[$CellContext`k, D], 
           FeynCalc`Momentum[$CellContext`k, D]]],
         Editable->False], ".", 
        InterpretationBox[
         SuperscriptBox[
          RowBox[{
           FormBox["\<\"(\"\>",
            TraditionalForm], 
           FormBox[
            FormBox[
             RowBox[{
              FormBox["k",
               TraditionalForm], "-", 
              SubscriptBox[
               FormBox[
                FormBox["p",
                 TraditionalForm],
                TraditionalForm], 
               FormBox["1",
                TraditionalForm]], "+", 
              SubscriptBox[
               FormBox[
                FormBox["p",
                 TraditionalForm],
                TraditionalForm], 
               FormBox["2",
                TraditionalForm]]}],
             TraditionalForm],
            TraditionalForm], 
           FormBox["\<\")\"\>",
            TraditionalForm]}], "2"],
         SequenceForm[
          FeynCalc`Pair[
          FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
            Subscript[$CellContext`p, 1], D] + FeynCalc`Momentum[
             Subscript[$CellContext`p, 2], D], 
           FeynCalc`Momentum[$CellContext`k, D] - FeynCalc`Momentum[
            Subscript[$CellContext`p, 1], D] + FeynCalc`Momentum[
             Subscript[$CellContext`p, 2], D]]],
         Editable->False]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output",
 ImageSize->{503, 45},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellTags->"OneLoopSimplify",
 CellLabel->"Out[7]="]
}, Open  ]]
}, Open  ]],

Cell["", "SectionFooterSpacer"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  InterpretationBox[
   StyleBox[
    GraphicsBox[{},
     BaselinePosition->Baseline,
     ImageSize->{6, 0}],
    CacheGraphics->False],
   Spacer[6]]]],
 "See Also"
}], "SeeAlsoSection",
 WholeCellGroupOpener->True,
 CellID->1255426704],

Cell[TextData[{
 StyleBox[ButtonBox["TID",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/TID",
  ButtonNote->"TID"],
  FontFamily->"Verdana"],
 ", ",
 StyleBox[ButtonBox["TIDL",
  BaseStyle->"Link",
  ButtonData->"paclet:FeynCalc/ref/TIDL",
  ButtonNote->"TIDL"],
  FontFamily->"Verdana"],
 "."
}], "SeeAlso"]
}, Open  ]],

Cell[" ", "FooterCell"]
},
Saveable->False,
ScreenStyleEnvironment->"Working",
WindowSize->{725, 750},
WindowMargins->{{-10, Automatic}, {Automatic, -8}},
WindowTitle->"OneLoopSimplify",
TaggingRules->{
 "ModificationHighlight" -> False, "ColorType" -> "SymbolColor", "LinkTrails" -> 
  GridBox[{{
      RowBox[{
        ButtonBox[
        "FeynCalc", ButtonData -> "paclet:FeynCalc/guide/FeynCalc", 
         BaseStyle -> {"Link", "DockedLinkTrail"}]}]}}, ColumnAlignments -> 
    Left], "HasOptions" -> False, "ExampleCounter" -> 1, "NeedPlatMsgIn" -> 
  None, "RootCaptions" -> "", 
  "Metadata" -> {
   "built" -> "{2020, 6, 20, 19, 8, 56.867385}", 
    "history" -> {"9.0", "", "", ""}, "context" -> "FeynCalc`", 
    "keywords" -> {}, "specialkeywords" -> {}, 
    "tutorialcollectionlinks" -> {}, "index" -> True, "label" -> 
    "Feyn Calc Symbol", "language" -> "en", "paclet" -> "FeynCalc", "status" -> 
    "None", "summary" -> 
    "OneLoopSimplify[amp, q] simplifies the one-loop amplitude amp. The \
second argument denotes the integration momentum.", "synonyms" -> {}, 
    "tabletags" -> {}, "title" -> "OneLoopSimplify", "titlemodifier" -> "", 
    "windowtitle" -> "OneLoopSimplify", "type" -> "Symbol", "uri" -> 
    "FeynCalc/ref/OneLoopSimplify"}, "SearchTextTranslated" -> ""},
CellContext->"Global`",
FrontEndVersion->"10.4 for Linux x86 (64-bit) (April 11, 2016)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[
    StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb"]]], 
   Cell[
    StyleData["Input"], CellContext -> "Global`"], 
   Cell[
    StyleData["Output"], CellContext -> "Global`"]}, Visible -> False, 
  FrontEndVersion -> "10.4 for Linux x86 (64-bit) (April 11, 2016)", 
  StyleDefinitions -> "Default.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "OneLoopSimplify"->{
  Cell[5324, 162, 148, 4, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->408969695],
  Cell[5475, 168, 1076, 25, 94, "Output",
   CellTags->"OneLoopSimplify"],
  Cell[7246, 229, 360, 12, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->2051602371],
  Cell[7609, 243, 1573, 57, 63, "Output",
   CellTags->"OneLoopSimplify"],
  Cell[9219, 305, 165, 5, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->1712188386],
  Cell[9387, 312, 3179, 111, 68, "Output",
   CellTags->"OneLoopSimplify"],
  Cell[12603, 428, 221, 7, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->2028218956],
  Cell[12827, 437, 1454, 54, 57, "Output",
   CellTags->"OneLoopSimplify"],
  Cell[14318, 496, 419, 13, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->1056142741],
  Cell[14740, 511, 2381, 84, 66, "Output",
   CellTags->"OneLoopSimplify"],
  Cell[17158, 600, 169, 5, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->971533335],
  Cell[17330, 607, 15159, 256, 228, "Output",
   CellTags->{"OneLoopSimplify", "RasterizedOutput"},
   CellID->1768019970],
  Cell[32526, 868, 271, 10, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->1848776094],
  Cell[32800, 880, 7571, 132, 120, "Output",
   CellTags->{"OneLoopSimplify", "RasterizedOutput"},
   CellID->1233007026],
  Cell[40408, 1017, 442, 16, 27, "Input",
   CellTags->"OneLoopSimplify",
   CellID->214879980],
  Cell[40853, 1035, 7051, 244, 66, "Output",
   CellTags->"OneLoopSimplify"]},
 "PrimaryExamplesSection"->{
  Cell[6612, 200, 388, 15, 31, "PrimaryExamplesSection",
   CellTags->"PrimaryExamplesSection",
   CellID->1251869634]},
 "RasterizedOutput"->{
  Cell[17330, 607, 15159, 256, 228, "Output",
   CellTags->{"OneLoopSimplify", "RasterizedOutput"},
   CellID->1768019970],
  Cell[32800, 880, 7571, 132, 120, "Output",
   CellTags->{"OneLoopSimplify", "RasterizedOutput"},
   CellID->1233007026]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"OneLoopSimplify", 50492, 1364},
 {"PrimaryExamplesSection", 51992, 1407},
 {"RasterizedOutput", 52136, 1411}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[587, 21, 3116, 76, 53, "AnchorBarGrid",
 CellID->1],
Cell[3706, 99, 292, 11, 45, "ObjectNameGrid"],
Cell[CellGroupData[{
Cell[4023, 114, 479, 14, 85, "Usage",
 CellID->982511436],
Cell[CellGroupData[{
Cell[4527, 132, 738, 24, 31, "NotesSection",
 CellGroupingRules->{"SectionGrouping", 50},
 CellID->649596718],
Cell[5268, 158, 31, 0, 14, "SectionHeaderSpacer"],
Cell[CellGroupData[{
Cell[5324, 162, 148, 4, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->408969695],
Cell[5475, 168, 1076, 25, 94, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6612, 200, 388, 15, 31, "PrimaryExamplesSection",
 CellTags->"PrimaryExamplesSection",
 CellID->1251869634],
Cell[CellGroupData[{
Cell[7025, 219, 196, 6, 26, "ExampleSection",
 CellID->2062258939],
Cell[CellGroupData[{
Cell[7246, 229, 360, 12, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->2051602371],
Cell[7609, 243, 1573, 57, 63, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9219, 305, 165, 5, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->1712188386],
Cell[9387, 312, 3179, 111, 68, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12603, 428, 221, 7, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->2028218956],
Cell[12827, 437, 1454, 54, 57, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14318, 496, 419, 13, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->1056142741],
Cell[14740, 511, 2381, 84, 66, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17158, 600, 169, 5, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->971533335],
Cell[17330, 607, 15159, 256, 228, "Output",
 CellTags->{"OneLoopSimplify", "RasterizedOutput"},
 CellID->1768019970]
}, Open  ]],
Cell[CellGroupData[{
Cell[32526, 868, 271, 10, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->1848776094],
Cell[32800, 880, 7571, 132, 120, "Output",
 CellTags->{"OneLoopSimplify", "RasterizedOutput"},
 CellID->1233007026]
}, Open  ]],
Cell[CellGroupData[{
Cell[40408, 1017, 442, 16, 27, "Input",
 CellTags->"OneLoopSimplify",
 CellID->214879980],
Cell[40853, 1035, 7051, 244, 66, "Output",
 CellTags->"OneLoopSimplify"]
}, Open  ]]
}, Open  ]],
Cell[47931, 1283, 31, 0, 29, "SectionFooterSpacer"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47999, 1288, 270, 12, 31, "SeeAlsoSection",
 CellID->1255426704],
Cell[48272, 1302, 319, 13, 56, "SeeAlso"]
}, Open  ]],
Cell[48606, 1318, 23, 0, 41, "FooterCell"]
}
]
*)

(* End of internal cache information *)

